home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed5.d64
/
there their
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2009-01-03
|
10KB
|
338 lines
1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
299 :
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATION PROJECT 1983
310 REM PROJECXCT DIRECTOR: FRANK WINTER
320 REM PROGRAM NAME: THERE THEIR THEY'RE"
330 [143] WRITTEN BY: UNKNOWN
340 [143] REVISED BY: KARIM NAZARALI"
350 REM UPDATED BY: BILL CUMBERLAND
399 :
400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
405 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211] [146]
410 [153]" (null)HIS PROGRAM IS DESIGNED TO HELP YOU"
415 [153]" WITH THE TROUBLESOME WORDS:"
420 [153]"THEIRWAITTHEY'REWAITTHEREWAIT
425 PRINT" [212]HE PROGRAM IS COMPOSED OF THREE"
430 PRINT" MAJOR PARTS:"
435 PRINT"1. [193] REVIEW OF THE CORRECT USES OF THE WORDS."
440 PRINT"2. [193] SERIES OF FILL-IN-THE-BLANK SENTENCES."
445 PRINT"3. [193] CALCULATION OF YOUR SCORE IN PER CENT."
450 GOSUB820
455 PRINT "[147] [215][193][210][206][201][206][199] [146]
460 [153] " RIGHT$F THE BLANK IS AT THE BEGINNING OF"
465 [153] " THE SENTENCE, PUSH THE SHIFTWAIT KEY"
470 [153]" AND THE LETTER TWAIT TO CAPITALIZE THE"
475 [153]" LETTER (null)WAIT."
490 [141]820
495 [142]
499 :
500 [143] <YES> SOUND
505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]TM[178]1[164]100:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO> SOUND
535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP> SOUND
565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
570 [151]54296,7:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
585 [151]54296,0:[142]
591 [129]TM[178]1[164]1000:[130]:[142]
592 [129]TM[178]1[164]2000:[130]:[142]
593 [129]TM[178]1[164]3000:[130]:[142]
595 [129]TM[178]1[164]5000:[130]:[142]
599 :
800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
801 [153]" A TPUG EDUCATIONAL PROGRAM ":[141]591
802 [153]" WAIT";
803 [153]" WAIT";
804 [153]" WAIT";
805 [153]" THERE THEIR THEY'RE WAIT";
806 [153]" WAIT";
807 [153]" WAIT"
808 [141]591:[141]560
809 [153]" INSTRUCTIONS? Y/N
810 GETR$:IFR$<>"Y"ANDR$<>"N"THEN810
811 IFR$="Y"THENGOSUB 400
812 PRINTL"[147] AND AWAY WE GO!
813 [141]592:[141]500:[141]591
814 [137]1000
820 [141]591:[141]560
822 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAIT"
824 [161]UI$:[139]UI$[179][177]" "[167]824
826 [142]
830 [141]591:[141]560
835 [151]UN,0:[153][200](UD$,24);"PRINT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
855 [153]" --------------------------------------"
860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);" [211]ETTING THE STAGE .... ":RETURN
899 :
900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
903 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
905 UD$="":UP$=" "
907 DIMS$(50,3)
909 RETURN
910 GOSUB900:PRINT"[147] "
920 GOTO 800
999 :
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0:POKEUT,UL%
1060 REM CLR:GOSUB900
1070 REM POKE UT,UL%:PRINT"[147]"
1200 NS=25:NA=6:LE=7:Q=0
1210 AN$=LEFT$("[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]",LE)
1220 REM READ DATA
1225 RESTORE:GOSUB875
1230 FORI=1TONS
1240 FORJ=1TO3
1250 READS$(I,J)
1260 NEXT:NEXT
1270 FORI=1TONA
1280 READ A$(I)
1290 NEXT
1300 GOSUB2460
1470 PRINT"[147] [196]O YOU WANT TO REVIEW? (Y/N) ";
1480 UL=1:US$="YN":GOSUB35:A$=UR$
1490 IFA$="Y"THEN GOSUB2550
1493 UP=0:UG$=""
1495 PRINT"[147] [200]OW MANY QUESTIONS DO YOU WANT?"
1496 PRINT" ([205]AY [201] SUGGEST 20?)
1497 [153]" (LIMIT OF 25) ";:UL[178]2:US$[178]"0123456789":[141]35:NQ[178][197](UR$)
1498 [139]NQ[178]0[176]NQ[177]25[167]UP[178]UP[171]1:[137]1494
1580 Q[178]Q[170]1:[139]Q[177]NQ [167]2730:[143] END
1590 AT[178]0
1600 UG$[178]"QUESTION #":UP[178]Q[171]1:[141]850:[141]1750
1610 [143] PRINT SENTENCE ON THE SCREEN
1620 [141] 1800
1630 [143] GOTO INPUT ROUTINE FOR ANSWER
1640 [141]1840
1650 [143] CHECK IF INPUT CORRECT ANSWER
1660 [141] 1870
1670 [143] IF INCORRECT GOTO 5030 AND TRY AGAIN ? OR...
1680 [143] HAVE A LESSON ON ......
1690 [143] IF CORRECT GOTO 5010 FOR THE NEXT SENTENCE
1700 [145] C [137] 1600,1580
1710 [142]
1720 [143] CHOOSE N
1730 N[178][181]([187]([171]I)[172]NS)[170]1
1740 [143] WHICH ANSWER?
1750 [129] I[178]1[164]NA
1760 [139]A$(I)[178]S$(Q,2)[167]AN[178]I
1770 [130]
1790 [142]
1800 [143] PRINT ANSWER ON PAGE
1810 LN[178]8:TB[178]3:[141]1940:[143] PRINT ON LINE 5
1820 [153]S$(Q,1)AN$S$(Q,3)
1830 [142]
1840 [143] GOTO INPUT ROUTINE
1850 LN[178]8:TB[178]3:[141]1970
1860 [142]
1870 [143] ANSWER
1890 [143] C=1 IF INCORRECT
1900 [143] C=2 IF CORRECT
1910 C[178]1:[139]A$(AN)[178]IN$[167]C[178]2
1920 [145] C [141] 2080,2300:[143] ANSWER ROUTINES
1930 [142]
1940 [143] SELECT PRINT LINE
1950 DN$[178]""
1960 [153][200](DN$,LN)[163]TB);:[142]
1970 [141]1950:[153]S$(Q,1);:UL[178]7:US$[178]"THEIRY'(null)":[141]35:IN$[178]UR$:[142]
1980 IN$[178]""
1990 [161]C$:[139]C$[178]""[167]1990
2000 [139](([198](C$)[175]127)[177]31)[175](C$[179][177][199](20))[175]([195](IN$)[179]LE)[167]2040
2010 [139]C$[178][199](13)[175][195](IN$)[177]0 [167] [142]
2020 [139]C$[178][199](20)[175][195](IN$)[177]0[167]IN$[178][200](IN$,[195](IN$)[171]1):[137]2050
2030 [137]1990
2040 IN$[178]IN$[170]C$
2050 [141]1940
2060 [153]S$(N,1)[200](IN$[170]AN$,LE)
2070 [137]1990
2080 [143] INCORRECT ANSWER
2090 LN[178]14:TB[178]9:[141]1940
2100 WR[178]WR[170]1:AT[178]AT[170]1:[143] COUNT THE NUMBER WRONG
2110 [139] AT[178]1 [167] LR$[178]IN$
2120 [139] AT[178]2 [175] IN$[178]LR$ [167] 2260
2130 [153]
2140 [139]AT[178]1[167][153]"DEF (null)OU'VE HURT MY FEELINGS! WAITLIST":[141]530
2150 [139]AT[178]2[167][153]"DEF (null)OW YOU'VE HURT MY FEELINGS AGAIN! WAITLIST":[141]530
2160 [139]AT[177]2[167][153]"DEF (null)OU NEED TO REVIEW BADLY! WAITLIST"
2170 [141]830
2180 [139]WR[177]1 [167] 2200
2190 [153]"LOAD (null)OU HAVE MADE 1 MISTAKE.":[137]2220
2200 [153]"LOAD (null)OU HAVE MADE";WR"MISTAKES."
2210 [139]AT[177]3[167][141]830:[141]2550:[137]2280
2220 [141]560:[153]" (null)OULD YOU LIKE A REVIEW? (Y/N) ";
2230 UL[178]1:US$[178]"YN":[141]35:C$[178]UR$
2240 [139] C$[178]"Y" [167] [137]2550
2250 [142]
2260 LN[178]18:TB[178]7:[141]1940
2265 [141]530:[153]"(null)OU'VE MADE THE SAME ERROR!!!"
2270 [141]830
2280 [142]
2300 [143] CORRECT ANSWER
2310 [153]"SYS LEN(null)(null)(null)VALLEN(null)! WAITLIST"
2320 [141]500:[141]592:[142]
2420 [143] LN=22:TB=8:GOSUB1940
2450 [141]850
2460 [143] SHUFFLE ORDER OF SENTENCES
2470 [129]I[178]1[164]NS
2480 K[178][181]([187](1)[172]NS)[170]1
2490 L[178][181]([187](1)[172]NS)[170]1
2500 [129]J[178]1[164]3
2510 S$(0,J)[178]S$(K,J)
2520 S$(K,J)[178]S$(L,J)
2530 S$(L,J)[178]S$(0,J)
2540 [130]J,I:[142]
2550 [143] EXPLANATION OF THEIR,THERE,THEY'RE
2560 UG$[178]"EXPLANATION":UP[178]0:UH[178]1:[141]850
2570 [153]"THEREWAITTHEY'REWAITTHEIRWAIT"
2580 [153]" (null)HEIRWAIT IS A WORD MEANING 'BELONGS TO"
2581 [153] " THEM. (null)HIS MEANS THAT YOU WOULD WRITE"
2582 [153] " ABOUT THEIRWAIT MAGAZINES OR THEIRWAIT IDEAS."
2585 [141]830:UH[178]1:[141]850
2590 [153]"THEREWAITTHEY'REWAITTHEIRWAIT"
2591 [153]" (null)HEREWAIT IS A WORD MEANING 'IN OR AT THAT"
2592 [153] " PLACE. (null)OU MIGHT BE ASKED TO PUT"
2593 [153] " THINGS THEREWAIT, OR TO GO THEREWAIT TO FIND"
2594 [153] " OUT WHAT HAPPENED."
2595 [141]830:UH[178]1:[141]850
2600 [153]"THEREWAITTHEY'REWAITTHEIRWAIT"
2601 [153]" (null)HEY'REWAIT IS A CONTRACTION OF THE TWO"
2602 [153] " WORDS 'THEY' AND 'ARE'. RIGHT$F YOU"
2603 [153] " MISSPELL THIS WORD OFTEN, YOU SHOULD"
2604 [153] " MAKE IT A HABIT TO WRITE THE FULL FORM"
2605 [153] " 'THEY ARE', INSTEAD OF THE SHORTER"
2608 [153] " THEY'REWAIT."
2670 [141]830:[142]
2720 [142]
2730 [143] SCORE
2735 [151]53280,0:[151]53281,0:[151]646,13
2740 [153]"LOAD (null)VAL(null)(null)(null)(null)(null) WAIT "
2745 TR[178]NQ[170]WR
2750 [143] PER CENT CORRECT OF ALL TRIES IS NQ/(NQ+WR)*100
2760 LN[178]13:TB[178]5:[141]1940
2770 PC[178]NQ[173](NQ[170]WR)[172]100
2780 PC[178][181](10[172]PC[170].05)[173]10
2790 [153]"ATNFTER";TR;"ATTEMPTS, YOUR SCORE IS";PC;"PER CENT."
2800 [141]830
2905 [153]"LOAD (null)OU HAVE A CHOICE:
2910 PRINT" [208]RESS [210] [146] TO REPEAT THIS PROGRAM
2915 [153]" (null)RESS (null) WAIT TO RETURN TO THE MENU
2920 GETR$:IFR$<>"R"ANDR$<>"M"ANDR$<>"[210]"ANDR$<>"[205]"THEN2920
2925 IFR$="R"THENRESTORE:GOTO800
2927 IFR$="[210]"THENRESTORE:GOTO800
2930 RESTORE:PRINT"[147] [210]ETURNING TO THE MAIN [205][197][206][213]
2934 [147]"MENU",8
2936 [138]
2938 [128]
3240 [141]2400
3270 [131] " (null)HERE IS ","THEIR"," MOTHER?"
3280 [131] " (null)HO IS OVER ","THERE","?"
3290 [131]" "
3300 [131]"(null)HERE"
3310 [131]" WERE AT LEAST FIVE FALSE FIRE ALARMS LAST WINTER."
3320 [131]"ASCELIX IS THE FAVOURITE PET ALTHOUGH "
3330 [131]"THEY'RE"
3340 [131]" FOND OF (null)OVER TOO."
3350 [131]"ATNFTER THE GRADUATION CEREMONY, THE STUDENTS CELEBRATED AT "
3360 [131]"THEIR"
3370 [131]" FAVOURITE RESTAURANT."
3380 [131]"(null)HEN (null)R. (null)UTHERLAND SAYS HE WANTS TO SEE YOU "
3390 [131]"THERE"
3400 [131]" AT 08:15,HE MEANS IT."
3410 [131]"(null)HE MOOD GAVE THEM STRENGTH TO FIGHT BACK AND REGAIN "
3420 [131]"THEIR"
3430 [131]" COMPOSURE."
3440 [131]"(null)UCK SAVED "
3450 [131]"THEIR"
3460 [131]" LIVES,NOT PLANNING AND FAST THINKING."
3470 [131]"ATNFTER A NUCLEAR WAR ","THERE"," WILL ONLY BE A FEW SURVIVORS."
3480 [131]"PEEKEFORE THE GAME ","THEY'RE"," ALWAYS HIGH STRUNG AND IRRITABLE."
3490 [131]"(null)HE REVOLUTIONARIES SHOWED THAT "
3500 [131]"THERE"
3510 [131]"WOULD BE LITTLE FREEDOM AFTER THE CIVIL WAR."
3520 [131]"(null)HEY WERE SUPPOSEDLY GOING TO THE MUSEUMS; BUT INSTEAD DID "
3530 [131]"THEIR"
3540 [131]" OWN THING."
3550 [131]" "
3560 [131]"(null)HEY'RE"
3570 [131]" GOING SHOPPING TOMORROW."
3580 [131]"(null)HE LEVEL OF THOUGHT WAS A CHILD'S WHO WAS WONDERING IF "
3590 [131]"THERE"
3600 [131]" WOULD BE AN END TO ALL OF THIS."
3610 [131]"(null)TEVEN DIDN'T FEEL GUILT; "
3620 [131]"THERE"
3630 [131]" WAS NO CONFLICT GOING ON INSIDE HIM."
3640 [131]" "
3650 [131]"(null)HEY'RE"
3660 [131]" TAKING A BUS TO THE ATNRGO GAME TO AVOID THE TRAFFIC - HA!HA!"
3670 [131]"(null)HEY WANTED TO BE ABLE TO RELAX AND ENJOY THE SATISFACTION OF "
3680 [131] "THEIR"
3690 [131] " ACHIEVEMENT."
3700 [131] "LEFT$E NO LONGER NEEDED HELP SINCE HE WAS THINKING OF OTHERS AND "
3710 [131] "THEIR"
3720 [131] " LIVES."
3730 [131] "LEFT$E BELIEVED HE WAS "
3740 [131] "THERE"
3750 [131] " TO FIGHT THE ENEMY, NOT HIS OWN MEN."
3760 [131] " "
3770 [131] "(null)HEY'RE"
3780 [131] " MAKING A SECOND SEQUEL TO '(null)TAR (null)ARS'."
3790 [131] "ATNRE "
3800 [131] "THERE"
3810 [131] " GOING TO BE ANY COOKIES LEFT AFTER PEEKOB HAS DESSERT?"
3820 [131] " "
3830 [131] "(null)HEIR"
3840 [131] " MITTENS ARE IN THE CLOSET WITH THE COATS!"
3850 [131] " "
3860 [131] "(null)HERE"
3870 [131] " WAS NO WAY TO TELL THEM APART."
3880 [131] " "
3890 [131] "(null)HEY'RE"
3900 [131] " MEN, TOO AMBITIOUS FOR THE GOOD OF THE COUNTRY."
3910 [131] "(null)ERE "
3920 [131] "THERE"
3930 [131] " COMPLAINTS AFTER THE ROCK CONCERT?"
3940 [131] "(null)HEY'RE","THEIR","THERE","THEY'RE","(null)HERE","(null)HEIR"
4000 [143] WHC 90:11:29